home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 423_01 / recio200 / _rbget.h next >
Encoding:
C/C++ Source or Header  |  1994-04-15  |  2.6 KB  |  73 lines
  1. /*****************************************************************************
  2.    MODULE: _rbget.h
  3.   PURPOSE: recio character delimited integral number input functions
  4. COPYRIGHT: (C) 1994 William Pierpoint
  5.   VERSION: 2.00
  6.   RELEASE: April 15, 1994
  7. *****************************************************************************/
  8.  
  9. #ifndef _RBGET_H
  10. #define _RBGET_H
  11.  
  12. #include "recio.h"
  13.  
  14. extern int _rstatus(REC *rp, int mode);
  15. extern char *_rfldstr(REC *rp, size_t len);
  16. extern char *_rerrs(REC *rp, int errnum);
  17.  
  18. #define READ 0
  19.  
  20. /* clip value v between lower l and upper u bounds */
  21. #define range(l, v, u)  (min(max((l),(v)),(u)))
  22.  
  23. /* macro to get character delimited integral number */
  24. #define rbget_fn( /* define function to get number from record */\
  25.     fn_type,      /* defined function return type */\
  26.     fn_name,      /* defined function name */\
  27.     fn_err,       /* defined function error return value */\
  28.     cv_type,      /* conversion function return type */\
  29.     cv_name,      /* conversion function name */\
  30.     fn_min,       /* inclusive valid minimum value */\
  31.     fn_max)       /* inclusive valid maximum value */\
  32. \
  33. fn_type fn_name(        /* return fn_type, return fn_err on error */\
  34.         REC *rp,        /* record pointer */\
  35.         int base)       /* radix of number */\
  36. { \
  37.     fn_type result=(fn_err); /* result to return */\
  38.     cv_type val;             /* conversion value */\
  39.     char *fldptr;            /* pointer to field string */\
  40.     char *endptr;            /* pointer to first invalid field char */\
  41. \
  42.     if (!_rstatus(rp, READ)) { \
  43.       fldptr = _rfldstr(rp, 0); \
  44.       if (fldptr) { \
  45.         for (;;) { \
  46.           if (*fldptr != '\0') { \
  47.             endptr = fldptr; \
  48.             val = cv_name(fldptr, &endptr, base); \
  49.             while (isspace(*endptr)) endptr++; \
  50.             if (errno==ERANGE || !*endptr) { \
  51.               if (!errno) { \
  52.                 if (val>=(fn_min) && val<=(fn_max)) { \
  53.                   result = (fn_type) val; \
  54.                   goto done; \
  55.                 } \
  56.               } /* out of range */ \
  57.               fldptr = _rerrs(rp, R_ERANGE); \
  58.               if (fldptr) { continue; } else { goto done; } \
  59.             } /* invalid data */ \
  60.             fldptr = _rerrs(rp, R_EINVDAT); \
  61.             if (fldptr) { continue; } else { goto done; } \
  62.           } /* missing data (empty fldstr) */ \
  63.           fldptr = _rerrs(rp, R_EMISDAT); \
  64.           if (fldptr) { continue; } else { goto done; } \
  65.         } \
  66.       } /* null pointer */ \
  67.     } \
  68. done: \
  69.     return result; \
  70. }
  71.  
  72. #endif
  73.